﻿Module Module1

    Sub Main()
        Dim numPeque, numGrande, aux As Decimal
        Console.Title = "Ejercicio if condicional 4"
        Console.Write("Introduce el número pequeño: ")
        numPeque = Console.ReadLine()
        Console.Write("Introduce el número grande: ")
        numGrande = Console.ReadLine()
        If numPeque > numGrande Then
            Console.WriteLine("Se han intercambiado")
            aux = numGrande
            numGrande = numPeque
            numPeque = aux
            Console.WriteLine("numpeque = " & numPeque & " y numGrande = " & numGrande)
        Else
            Console.WriteLine("numpeque = " & numPeque & " y numGrande = " & numGrande)
        End If
        Console.ReadKey()
    End Sub

End Module
